home *** CD-ROM | disk | FTP | other *** search
/ isnet Internet / Isnet Internet CD.iso / prog / chat / 12 / 12.exe / SYSTEM / USERPROT.MRC < prev    next >
Encoding:
Text File  |  2000-02-26  |  6.4 KB  |  244 lines
  1. ON 1:TEXT:*:? {
  2.   if (%msgfld == on) {
  3.     u.umsgfld $nick *!*@ $+ $site $site $tp(uflood.txt)
  4.     u.gmsgfld $tp(gflood.txt)
  5.   }
  6. }
  7. ON 1:ACTION:*:? {
  8.   if (%msgfld == on) {
  9.     u.umsgfld $nick *!*@ $+ $site $site $tp(uflood.txt)
  10.     u.gmsgfld $tp(gflood.txt)
  11.   }
  12. }
  13. ON 1:NOTICE:*:? {
  14.   if (%notfld == on) {
  15.     u.unotfld $nick *!*@ $+ $site $site $tp(uflood.txt)
  16.     u.gnotfld $tp(gflood.txt)
  17.   }
  18. }
  19. CTCP 1:*:* {
  20.   if (%ctcpfld == on) {
  21.     u.uctcpfld $nick *!*@ $+ $site $site $tp(uflood.txt)
  22.     u.gctcpfld $tp(gflood.txt)
  23.   }
  24. }
  25. ON 1:INVITE:# {
  26.   if (%invfld == on) {
  27.     u.uinvfld $nick *!*@ $+ $site $site $tp(uflood.txt)
  28.     u.ginvfld $tp(gflood.txt)
  29.   }
  30. }
  31. alias -l u.umsgfld {
  32.   var %a, %b
  33.   set %a $readini -n $4 $3 mn
  34.   set %b $ticks
  35.   dec %b $readini -n $4 $3 mt
  36.   if ((%a == $null) || (%b > %murps)) {
  37.     writeini -n $4 $3 mn 0
  38.     writeini -n $4 $3 mt $ticks
  39.     return
  40.   }
  41.   inc %a
  42.   writeini -n $4 $3 mn %a
  43.   if (%a <= %msgmaxu) return
  44.   remini $4 $3
  45.   set %f11cmd .ignore -rp $2
  46.   .ignore -pu $+ %msgremu $2
  47.   iiecho . $+ $str(-,40) $+ .
  48.   iiecho $vl FLOOD! type $fix(26,message) $vl
  49.   iiecho $vl Host: $fix(32,$hc($left($3,32))) $vl
  50.   iiecho $vl F11: undo $fix(28,ignore) $vl
  51.   if ($com.opchannels($1)) {
  52.     set %f12cmd ckb $1 message flood
  53.     iiecho $vl F12: kickban $fix(25,$hc($1)) $vl
  54.   }
  55.   iiecho ' $+ $str(-,40) $+ '
  56.   tsound flood
  57. }
  58. alias -l u.gmsgfld {
  59.   var %a, %b
  60.   set %a $readini -n $1 all mn
  61.   set %b $ticks
  62.   dec %b $readini -n $1 all mt
  63.   if ((%a == $null) || (%b > %mrps)) {
  64.     writeini -n $1 all mn 0
  65.     writeini -n $1 all mt $ticks
  66.     return
  67.   }
  68.   inc %a
  69.   writeini -n $1 all mn %a
  70.   if (%a <= %msgmax) return
  71.   remini $1 all
  72.   set %f11cmd .ignore -rp *!*@*
  73.   set %f12cmd nick $left($me,-1) $+ $rand(0,9)
  74.   .ignore -pu $+ %msgrem *!*@*
  75.   iiecho . $+ $str(-,25) $+ .
  76.   iiecho $vl FLOOD! type $fix(11,message) $vl
  77.   iiecho $vl Host: $fix(17,multiple) $vl
  78.   iiecho $vl F11: undo $fix(13,ignore) $vl
  79.   iiecho $vl F12: change $fix(11,nick) $vl
  80.   iiecho $vl cF12: close msg windows $vl
  81.   iiecho ' $+ $str(-,25) $+ '
  82.   tsound flood
  83. }
  84. alias -l u.uctcpfld {
  85.   var %a, %b
  86.   set %a $readini -n $4 $3 cn
  87.   set %b $ticks
  88.   dec %b $readini -n $4 $3 ct
  89.   if ((%a == $null) || (%b > %curps)) {
  90.     writeini -n $4 $3 cn 0
  91.     writeini -n $4 $3 ct $ticks
  92.     return
  93.   }
  94.   inc %a
  95.   writeini -n $4 $3 cn %a
  96.   if (%a <= %ctcpmaxu) return
  97.   remini $4 $3
  98.   set %f11cmd .ignore -rt $2
  99.   .ignore -tu $+ %ctcpremu $2
  100.   iiecho . $+ $str(-,40) $+ .
  101.   iiecho $vl FLOOD! type $fix(26,ctcp) $vl
  102.   iiecho $vl Host: $fix(32,$hc($left($3,32))) $vl
  103.   iiecho $vl F11: undo $fix(28,ignore) $vl
  104.   if ($com.opchannels($1)) {
  105.     set %f12cmd ckb $1 ctcp flood
  106.     iiecho $vl F12: kickban $fix(25,$hc($1)) $vl
  107.   }
  108.   iiecho ' $+ $str(-,40) $+ '
  109.   tsound flood
  110. }
  111. alias -l u.gctcpfld {
  112.   var %a, %b
  113.   set %a $readini -n $1 all cn
  114.   set %b $ticks
  115.   dec %b $readini -n $1 all ct
  116.   if ((%a == $null) || (%b > %crps)) {
  117.     writeini -n $1 all cn 0
  118.     writeini -n $1 all ct $ticks
  119.     return
  120.   }
  121.   inc %a
  122.   writeini -n $1 all cn %a
  123.   if (%a <= %ctcpmax) return
  124.   remini $1 all
  125.   set %f11cmd .ignore -rt *!*@*
  126.   set %f12cmd nick $left($me,-1) $+ $rand(0,9)
  127.   .ignore -tu $+ %ctcprem *!*@*
  128.   iiecho . $+ $str(-,25) $+ .
  129.   iiecho $vl FLOOD! type $fix(11,ctcp) $vl
  130.   iiecho $vl Host: $fix(17,multiple) $vl
  131.   iiecho $vl F11: undo $fix(13,ignore) $vl
  132.   iiecho $vl F12: change $fix(11,nick) $vl
  133.   iiecho ' $+ $str(-,25) $+ '
  134.   tsound flood
  135. }
  136. alias -l u.unotfld {
  137.   var %a, %b
  138.   set %a $readini -n $4 $3 nn
  139.   set %b $ticks
  140.   dec %b $readini -n $4 $3 nt
  141.   if ((%a == $null) || (%b > %nturps)) {
  142.     writeini -n $4 $3 nn 0
  143.     writeini -n $4 $3 nt $ticks
  144.     return
  145.   }
  146.   inc %a
  147.   writeini -n $4 $3 nn %a
  148.   if (%a <= %notmaxu) return
  149.   remini $4 $3
  150.   set %f11cmd .ignore -rn $2
  151.   .ignore -nu $+ %notremu $2
  152.   iiecho . $+ $str(-,40) $+ .
  153.   iiecho $vl FLOOD! type $fix(26,notice) $vl
  154.   iiecho $vl $+ $str(-,40) $+ $vl
  155.   iiecho $vl Host: $fix(32,$hc($left($3,32))) $vl
  156.   iiecho $vl F11: undo $fix(28,ignore) $vl
  157.   if ($com.opchannels($1)) {
  158.     set %f12cmd ckb $1 notice flood
  159.     iiecho $vl F12: kickban $fix(25,$hc($1)) $vl
  160.   }
  161.   iiecho ' $+ $str(-,40) $+ '
  162.   tsound flood
  163. }
  164. alias -l u.gnotfld {
  165.   var %a, %b
  166.   set %a $readini -n $1 all nn
  167.   set %b $ticks
  168.   dec %b $readini -n $1 all nt
  169.   if ((%a == $null) || (%b > %ntrps)) {
  170.     writeini -n $1 all nn 0
  171.     writeini -n $1 all nt $ticks
  172.     return
  173.   }
  174.   inc %a
  175.   writeini -n $1 all nn %a
  176.   if (%a <= %notmax) return
  177.   remini $1 all
  178.   set %f11cmd .ignore -rn *!*@*
  179.   set %f12cmd nick $left($me,-1) $+ $rand(0,9)
  180.   .ignore -nu $+ %notrem *!*@*
  181.   iiecho . $+ $str(-,25) $+ .
  182.   iiecho $vl FLOOD! type $fix(11,notice) $vl
  183.   iiecho $vl $+ $str(-,25) $+ $vl
  184.   iiecho $vl Host: $fix(17,multiple) $vl
  185.   iiecho $vl F11: undo $fix(13,ignore) $vl
  186.   iiecho $vl F12: change $fix(11,nick) $vl
  187.   iiecho ' $+ $str(-,25) $+ '
  188.   tsound flood
  189. }
  190. alias -l u.uinvfld {
  191.   var %a, %b
  192.   set %a $readini -n $4 $3 in
  193.   set %b $ticks
  194.   dec %b $readini -n $4 $3 it
  195.   if ((%a == $null) || (%b > %iurps)) {
  196.     writeini -n $4 $3 in 0
  197.     writeini -n $4 $3 it $ticks
  198.     return
  199.   }
  200.   inc %a
  201.   writeini -n $4 $3 in %a
  202.   if (%a <= %invmaxu) return
  203.   remini $4 $3
  204.   set %f11cmd .ignore -ri $2
  205.   .ignore -iu $+ %invremu $2
  206.   iiecho . $+ $str(-,40) $+ .
  207.   iiecho $vl FLOOD! type $fix(26,invite) $vl
  208.   iiecho $vl $+ $str(-,40) $+ $vl
  209.   iiecho $vl Host: $fix(32,$hc($left($3,32))) $vl
  210.   iiecho $vl F11: undo $fix(28,ignore) $vl
  211.   if ($com.opchannels($1)) {
  212.     set %f12cmd ckb $1 invite flood
  213.     iiecho $vl F12: kickban $fix(25,$hc($1)) $vl
  214.   }
  215.   iiecho ' $+ $str(-,40) $+ '
  216.   tsound flood
  217. }
  218. alias -l u.ginvfld {
  219.   var %a, %b
  220.   set %a $readini -n $1 all in
  221.   set %b $ticks
  222.   dec %b $readini -n $1 all it
  223.   if ((%a == $null) || (%b > %irps)) {
  224.     writeini -n $1 all in 0
  225.     writeini -n $1 all it $ticks
  226.     return
  227.   }
  228.   inc %a
  229.   writeini -n $1 all in %a
  230.   if (%a <= %invmax) return
  231.   remini $1 all
  232.   set %f11cmd .ignore -ri *!*@*
  233.   set %f12cmd nick $left($me,-1) $+ $rand(0,9)
  234.   .ignore -iu $+ %invrem *!*@*
  235.   iiecho . $+ $str(-,25) $+ .
  236.   iiecho $vl FLOOD! type $fix(11,invite) $vl
  237.   iiecho $vl $+ $str(-,25) $+ $vl
  238.   iiecho $vl Host: $fix(17,multiple) $vl
  239.   iiecho $vl F11: undo $fix(13,ignore) $vl
  240.   iiecho $vl F12: change $fix(11,nick) $vl
  241.   iiecho ' $+ $str(-,25) $+ '
  242.   tsound flood
  243. }
  244.